home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / inovatronics / edgedemo / edgeeditor / rexx / menu_changename.edge < prev    next >
Text File  |  1994-11-17  |  442b  |  19 lines
  1. /*
  2. ** $VER: Menu_ChangeName.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Change the filename for the current window's file
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* get the current filename */
  12. getenvvar _fe_name
  13.  
  14. /* ask the user if they want to change the file's name */
  15. requeststring TITLE """New Name For File?""" DEFAULT """"result""""
  16.  
  17. /* if so then do it */
  18. if RC == 0 then putenvvar _fe_name """"result""""
  19.